(nnmail-pathname-coding-system): Defvar when

compiling.
(gnus-make-directory): Require nnmail.

diff --git a/lisp/gnus/gnus-util.el b/lisp/gnus/gnus-util.el
index 4a30d1da0be23d4a6e95de5241e8d65cb06faf4e..061a0610a70fc407d35307fd7f7c4fc2d225a6f6 100644 (file)
--- a/lisp/gnus/gnus-util.el
+++ b/lisp/gnus/gnus-util.el
@@ -32,7 +32,10 @@
 ;;; Code:
 
 (require 'custom)
-(eval-when-compile (require 'cl))
+(eval-when-compile
+  (require 'cl)
+  ;; Fixme: this should be a gnus variable, not nnmail-.
+  (defvar nnmail-pathname-coding-system))
 (require 'nnheader)
 (require 'time-date)
 
@@ -531,6 +534,7 @@ Bind `print-quoted' and `print-readably' to t while printing."
 
 (defun gnus-make-directory (directory)
   "Make DIRECTORY (and all its parents) if it doesn't exist."
+  (require 'nnmail)
   (let ((file-name-coding-system nnmail-pathname-coding-system))
     (when (and directory
               (not (file-exists-p directory)))